Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/emerald/emrldsys.lha/Language/ExecTests/tnode.m

Text File | 1990-08-31 | 555 b | 19 lines

import runtest from "RunTest"

const tnode <- object tnode
  const myTest == runtest.create[stdin, stdout, "tnode"]
  process
    const mynode == locate self
    var now, other : Time
    var lnn : Integer
    now <- mynode.getTimeOfDay
    other <- Time.create[0,0]
    myTest.check[now >= other, "now >= other"]
    myTest.check[now <= Time.create[60*60*24*366*30, 0], "now <= Time.create[60*60*24*366*30, 0]"]
    lnn <- mynode$lnn
    myTest.check[lnn >= 0, "lnn >= 0"]
    myTest.check[lnn < 256, "lnn < 256"]
    myTest.done
  end process
end tnode